delimiters ();
def tracingall=tracingcommands:=3;
 tracingedges:=1; tracingtitles:=1; tracingequations:=1; tracingspecs:=1;
	tracingpens:=1; tracingchoices:=1; tracingstats:=2;
 tracingonline:=1;tracingoutput:=1;tracingmacros:=3 enddef;
%tracingall;
edges ee;
ee := nulledges;
openwindow 5 from (0,0) to (300,400) at (-50,200);
def draw expr p = addto ee doublepath p withweight 1 enddef;
def abs primary x =
 if pair x: (xpart x ++ ypart x)
 elseif numeric x: if x<0: (-x) else: x fi
 else: x fi enddef;

%pausing:=1;
pair N, S, E, W, NE, SE, SW, NW;
2N = -2S = (0,1);
2E = -2W = (1,0);
2NE = (N+E)/abs(N+E);	2NW = (N+W)/abs(N+W);
2SE = (S+E)/abs(S+E);	2SW = (S+W)/abs(S+W);

path semicirc; semicirc = (E{N}..NE..N..NW..W{S}) shifted E;
pen p[]; p1=pencircle; p2=pencircle scaled 1.2;

proofing:=1;
tracingall;
showstats;
%draw semicirc scaled 43.5 withpen p1;
%display ee on 5; shipout ee; ee:=nulledges;
%draw semicirc scaled 43.5 withpen p2;
%display ee on 5; shipout ee; ee:=nulledges;
autorounding:=2;
xyzzy:=1;
%autorounding:=3;
%draw semicirc scaled 43.5 withpen p1;
%display ee on 5; shipout ee; ee:=nulledges;
%smoothing:=1;
%draw semicirc scaled 43.5 withpen p1;
%display ee on 5; shipout ee; ee:=nulledges;
draw semicirc scaled 43.5 withpen pencircle scaled 2;
display ee on 5; shipout ee; ee:=nulledges;
end